/* save string s to file name and filetype type */

#ifndef _io_save
#define _io_save 1
#endif

save(s,name,type)
{
 local start;
 swi("OS_File", vector {
     10;
     @(name);
     type;
     0;
     start = @(s);
     start+sizeof(s);
     0; 0; });
}
